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Tne  purpose  of  the  Validation  Summary  Report  (VSR)  is  to  identify  individual 
COBOL  language  elements  whose  usage  does  not  conform  to  Federal  Standard  COBOL 
as  adopted  from  American  Rational  Standard  CneOL  (X3.23-1968)  by  Federal 
Information  Processing  Standards  Publication  21  (FIPS  PUB  21). 

1.?.  Preparation  of  the  VSR 

The  Validation  Summary  Report  is  prepared  by  analyzing  the  results  of  running 
the  C0801  Conoil er  Validation  System  (CCVS).  The  C393L  Compiler  Validation 
System  consists  of  audit  routines  containing  features  of  federal  Standard  COBOL 
their  related  data*  and  an  executive  routine  (V°-rout i ne ) which  prepares  the 
ajdit  routines  for  compilation.  Each  audit  routine  is  a COBOL  program  vhich 
includes  tests  and  supporting  procedures  used  to  indicate  the  results  of  the 
tests. 

T n e testing  of  a cospiler  in  a particular  hardware/operet ing  system  environment 
is  accomplished  by  compiling  and  executing  each  audit  routine.  The  report 
produced  by  each  routine  indicates  mhether  the  compiler  passed  or  failed  the 
tests  contained  in  the  routine. 

If  the  compiler  rejects  soae  language  elements  by  terminating  compilation* 
giving  fatal  diagnostic  messages*  or  terminating  execution  abnormally*  then 
the  test  containing  the  code  the  cospiler  was  unable  to  process  is  deleted  and 
the  audit  routine  compilation  and  execution  repeated. 

The  compilation  listings  and  the  output  reports  of  the  audit  routines  con- 
stitute the  raw  data  from  which  the  members  of  the  Federal  COBOL  Compiler 
Testing  Service  oroduce  a Validation  Summary  Report. 

1.3.  Organization  of  the  VSR 

The  Validation  Summary  Report  is  made  up  of  several  sections  the  contents  of 
which  are  described  below: 

a.  Section  2 summarizes  the  results  of  the  compilation  and  execution 
of  the  programs  comprising  the  COBOL  Compiler  Validation  System. 

Section  2 is  subdivided  into  Section  2.1*  syntax  not  accepted  by  the  compiler* 
and  Section  2.2*  semantic  differences  between  the  compiler  implementation  and 
the  language  specification.  All  errors  are  grouped  by  processing  module. 

b.  FIPS  PUB  21  defines  four  levels  of  federal  Standard  COBOL.  • 

Section  3 of  the  VSR  lists  the  discrepancies  described  in  Section  2 by  the 
level  in  which  the  problem  occurs. 


Section  A contains  information  obtained  during  the  validation  process 


which/  while  not  impacting  the  status  of  the  compiler  with  respect  to  the 
defined  federal  COBOL  levels/  may  be  of  Interest  to  a user  of  the  compiler. 

d.  Section  5 contains  inforaation  which  describes  the  software  environ- 
■ent  in  which  the  conpiler  was  tested.  This  includes  the  nane  and  version 

of  the  conpiler;  the  name  and  version  of  the  operating  system;  the  imple- 
mentor-names which  were  used  in  the  Environnent  Division  of  the  programs  com- 
prising the  CCVS;  the  options  used  with  the  conpiler;  and  if  applicable/ 
inforaation  regarding  the  use  of  compiler  optimization  features. 

e.  Appendix  A is  the  Validation  Summary  Working  Document/  a working 
paper  resulting  from  the  compilation  and  execution  of  the  CCVS/  and  from  which 
the  VSR  is  derived. 

t.A.  Compliance  to  FIPS  »UB  21 

Definition  of  an  Implementation  of  USA  Standard  COBOL 


(excerpts  from  American  National  Standard  C090L  X3. 23-1763/  Chapter  1) 

Throughout  the  USA  Standard  COBOL  specifications/  there  are  certain  language 
elements  that  depend/  for  their  implementation/  on  particular  types  of  hard- 
ware components.  The  implementor  specifies  the  minimum  hardware  configuration 
required  for  a given  implementation  of  USA  Standard  C030L  and  the  hardware 
components  that  it  supports.  Any  language  elements  that  depend  on  hardware 
components  for  which  support  is  claimed  must  be  implemented.  Language  ele- 
ments that  are  not  implemented  because  of  their  dependence  on  hardware  con- 
sonants whose  support  is  not  claimed  for  an  implementation  must  be  so  specified 
and  their  absence  will  not  render  the  implementation  nonstandard. 

Wnen  a facility  is  provided  that  accomplishes  the  function  specified  by  any 
particular  COBOL  element/  it  may  be  unnecessary  to  include  that  particular 
•lament  within  the  COBOL  source  program.  If  such  an  unnecessary  element  does 
appear  in  the  source  prooram/  it  must  be  accepted  by  the  compiler.  However/ 
if  the  element  does  not  lead  to  the  production  of  obSect  code/  no  substitute 
statements  shall  be  required  within  the  COBOL  source  program  to  accomplish  this 
function. 

By  the  same  token/  the  inclusion  of  lanquage  elements  or  of  functions  that  are 
not  a part  of  the  USA  Standard  COBOL  specifications  will  not  render  an  imple- 
mentation of  USA  Standard  C030L  nonstandard.  This  is  true  even  though  it  may 
imply  the  extension  of  the  list  of  reserved  words  by  the  iaplementor/  and  pre- 
vent proper  compilation  of  sooe  programs  which  conform  to  the  Standard. 


The  federal  COBOL  Standard 


The  Federal  COBOL  Standard  is  the  tier  as  American  National  Standard  COBOL 
(X3. 23-1966)  with  two  receptions: 

The  federal  Standard  defines  4 levels  and  the 
ANSI  Standard  defines  only  the  minimum  COBOL 
implementat ion  and  the  full  standard.  Low  and 
Hi  oh  levels  of  the  federal  COBOL  Standard  (see 
1.5)  correspond  to  the  above  two  ANSI  levels 
(minus  the  Report  Writer  nodule).  Two  addi- 
tional levels*  law-intermediate  and  high- 
intermediate  have  been  included  in  the  Federal 
Standard  between  the  highest  and  lowest  subsets. 

These  additional  levels  accommodate  hardware 
which  cannot  sjooort  the  full  standard*  out  which 
is  capable  of  implementing  more  than  the  minimum 
standard. 

The  Report  Writer  Nodule  has  oeen  dropped  fro*  the 
Federal  Standard  and  is  not  included  in  the  valida- 
tion process. 

The  federal  Standard  requires  that  a compiler  contain  as  a minimum  the  ele- 
ments specified  in  at  least  one  of  the  Federal  levels.  No  restrictions  are 
imposed  on  the  inclusion  of  selected  features  from  higher  levels  or  even 
unique  vendor  extensions.  Compatibility  among  various  implementations  of  a 
given  level  containing  additonal  features  must  be  contrblled  by  management 
imposed  standards  and  restrictions. 
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1.5.  Federal  Standard  C030L  Levels 


The  Federal  Governaent  has  defined  four  nested  levels  of  Standard  COBOL 
*5. 25-1968.  All  compilers  acquired  by  a Federal  agency  must  contain  as  a 
ainiaua  one  of  the  fojr  Federal  levels,  depending  on  aachine  size,  configura- 
tion and  user  needs. 


Low 

Level 

Low- 
Inter- 
mediate 
Leve  l 

High- 

Inter- 

mediate 

Level 

High 

Level 

Nucleus.............. 

i 

2 

2 

2 

FP<1 

Table  Handling....... 

i 

2 

2 

3 

Sequential  Access.... 

i 

2 

2 

2 

Random  Access........ 

• 

2 

2 

2 

Sort................. 

- 

- 

1 

2 

Segment  at  ion 

- 

1 

1 

2 

Library 

1 

1 

2 

1.6.  Use  of  the  VSR 

The  Federal  COBOL  Compiler  Testing  Service  aay  make  full  and  free  public 
disclosure  of  the  Validation  Summary  Report  (VSR)  in  accordance  with  the 
"Freedom  of  Information  Act”  (5  U.S.C.  *552).  The  results  of  the  valida- 
tion are  only  for  the  purpose  of  satisfying  United  States  Government 
requireaents.  and  apply  only  to  the  computer  system,  operating  system 
release,  and  compiler  version  identified  in  the  VSR. 

The  COBOL  Compiler  Validation  System  is  used  to  detenine.  insofar  as  is 
practical,  the  deqree  to  which  the  subject  compiler  conforms  to  the  COBOL 
Standard.  Thus,  the  VSR  is  necessarily  discretionary  and  judgmental.  The 
United  States  Government  does  not  represent  or  warrant  that  the  statements, 
or  any  one  of  them,  set  forth  in  the  VSR  are  accurate  or  complete.  The  VSR 
it  not  meant  to  be  used  for  the  purpose  of  publicizing  the  findings  summar- 
ized therein. 

1.7.  Sources  of  Additional  Information 

FIPS  PUB  21  defines  the  Federal  COBOL  Language  Standard.  This  publication 
it  available  from  the  Superintendent  of  Documents.  U.S.  Government  Printing  • 
Office.  Washington.  O.C.  25432. 

The  detailed  COBOL  language  specifications  are  given  in  the  publication 
"USA  Standard  C030L.  X3. 25-1968”.  available  from  American  National  Standards 


Institute*  1430  Broadway*  New  York*  New  York  10318. 

4n  explanation  of  the  C090L  Compiler  Validation  System  is  contained  in  the 
CCVS  User's  Guide.  This  document  explains  how  to  run  the  compiler  validation 
systea.  The  User's  Guide  and  a magnetic  tape  source  image  copy  of  the  CCVS 
orograas  are  available  fro*  the  National  Technical  Information  Service* 
Springfield*  Virginia*  22151.  Specify  4D772633  for  the  Users  6uide  and 
49772631  for  the  CCVS  tape. 

1.8.  Requests  for  Interpretation 

Ruestions  regarding  this  VSR  or  the  CCVS  should  be  forwarded  to  the  TCCTS. 

If  any  problem  cannot  be  adequately  resolved  through  the  fCCTS*  the  request 
for  interpretation  will  be  forwarded  to  the  Federal  COBOL  Interpretation 
Committee  for  final  resolution. 

4 brochure  describing  the  Validation  process  including  the  procedures  for 
requesting  a validation  and  resolution  of  questions  involving  interpretation 
of  the  current  federal  Standard  is  ava i l ao le  from  the  Department  of  the  Navy* 
Federal  COBOL  Compiler  Testing  Service*  Washington*  D.C.  23376. 

1.9.  Federal  Standard  COBOL  Approved  Int repre t at i on 

Tne  National  Bureau  of  Standards  published  in  the  Federal  Register  Vol.  41 
No.  179*  Septemoer  14*  1976*  an  approved  int eroret at  ion  of  Federal  Standard 
COBOL  as  pertains  to  the  evaluation  of  arithmetic  expressions  in  the  C0NPUTE 
statements.  This  interpretation  states  that  "size  of  the  intermediate  result 
field  is  implementor-def ined." 

Since  the  results  of  evaluating  arithmetic  expressions  are  not  predictable*  all 
COMPUTE  statements  and  IF  statements  containing  arithmetic  expressions  have 
been  removed  from  the  COBOL  Compiler  Validation  Systea. 
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SECTION  2.  DETAILED  EVALUATION  OF  ERRORS 


This  section  summarizes  the  results  of  the  compilation  and  esecution  of  the 
programs  comprising  the  COBOL  Compiler  Validation  System.  The  section  is 
subdivided  into  two  sections:  Section  2.1.  lists  the  language  syntax  not 
accepted  by  the  compiler;  Section  2.2.  explains  the  semantic  differences 
between  the  compiler  implementation  and  the  language  specification.  All 
errors  within  each  section  are  grouped  by  processing  module. 

Each  program  in  the  COBOL  Compiler  Validation  System  is  identified  by  a 5- 
character  program  name.  The  name  associates  the  routine  with  the  functional 
orocessing  module  and  level  of  ANS  COBOL  tested  within  the  program. 

The  five  character  name  has  the  qeneral  format  XXNH.  The  first  two  char- 
acters are  alphabetic  and  identify  the  functional  module  tested  by  the 
orogram.  The  permissible  values  are: 

LB  - Library 
NC  - Nucleus 
RC  - Random  Access 
S3  - Segmentation 
SO  - Sequential 
ST  - Sort 

T.d  - Table  Handling 

The  third  character  of  the  audit  routine  name  is  either  a 1*  2*  or  3*  and 
identifies  the  level  of  the  functional  module  being  tested.  Each  module  and 
level  is  represented  by  several  programs.  The  fourth  and  fifth  characters 
of  the  program  name  are  sequence  numbers  for  programs  which  test  features  in 
the  same  level  of  the  same  functional  processing  module. 

As  an  example*  the  prograi  naie  NC21D  is  the  tenth  program  in  the  series  of 
routines  which  test  the  second  level  of  the  Nucleus  module. 

Each  error  noted  in  this  section  makes  reference  to  a program  or  functional 
C3B0L  nodule  in  the  Validation  Summary  Working  Document  (APPENDIX  A).  This 
reference  provides  the  documented  results  of  an  occurrence  of  errors  detected 
during  the  running  of  the  0351  Compiler  Validation  System  using  the  compiler 
being  validated.  The  Validation  Summary  Working  Document  is  presented  in 
sequence  by  functional  module*  functional  nodule  level  and  program  number  as 
defined  above. 


1 


2.2  Semantic  Errors. 

2.2.1  Nucleus  Nodule. 

2.2. 1.1  Leading  SPACE(s)  are  truncated  when  ACCFPTing  data  from  the  S°0 
(standard  console  ACCEPT  and  DISPLAY  device). 

See  NC 1 3 ? . 

See  NC234. 

2. 2.1.2  The  compiler  does  not  replace  the  entire  comment  entry  of  the 
DATE-CONPILED  paragraph  with  the  current  date.  It  only  replaces 
the  first  sentence  in  the  paragraph. 

See  NC203. 

2.2.2  Random  Access  Nodule. 

2. 2. 2.1  Label  DECLARATIVE  procedures  for  random  access  mass  storage 
devices  do  not  appear  to  be  supported. 

See  RC  201 . 

See  RC232. 

See  RC23S. 

2.2. 2. 2 A file  can  b?  opened  and  read  after  a CLOSE  WITH  LOCK  statement 
has  been  executed  for  the  file. 

See  RC201. 

2.2. 2. 5 The  statement  VALUE  OF  data-name  IS  has  not  oeen  implemented. 

See  RC 203 . 

2.2.3  Segmentation  Nodule. 

2. 2. 3.1  Independent  segments  are  not  provided  in  their  initial  state 
each  time  these  segments  are  made  available  to  the  program. 

See  S313>. 

See  SS103. 

See  S6201 . 

See  SS233. 

2.2.4  Sequential  Access  Nodule. 

• 

2. 2. 4.1  For  tape  files*  the  ENDING  LABEL  procedures  execute  following 

a CLOSE  even  though  the  file  is  not  at  an  end-of-file  condition. 

See  SQ203. 
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See  S8217. 


Label  DECLARATIVE  procedures  do  not  appear  to  be  supported  on 
sequential  access  mass  storage  devices. 

See  S0205. 

See  SB2D3. 

See  S 3 20?. 

See  SQ215. 

See  SQ21S. 


SECTION  3.  COMPILER  STATUS 

Section  1.5  explains  the  four  levels  of  Federal  Standard  COBOL.  This 
section  lists  the  discrepancies  described  in  Section  2 by  the  Federal  level 
in  which  the  problem  occurs.  All  errors  listed  for  a lover  level  are  also 
errors  in  any  higher  level*  even  though  they  are  listed  only  in  the  lower 
level.  The  paragraph  number  from  Section  2 is  used  to  reference  the  errors 
in  each  Federal  level. 

3.1.  Low  Level 

2. 2.1.1  ACCEPT  - leadinq  blanks  truncated  when  accepting  from 
the  console. 

3.2.  Low-Intermediate  Level' 

2. 2. 1.2  D A TE -COMPI LE D - date  does  not  replace  the  entire  paragraph. 

2. 2. 2.1  USE  procedures  - Random  Access. 

2. 2. 2. 2 CLOSE  WITH  LOCK  - Random  Access. 

2. 2. 2. 3 VALJE  OF  data-name  - Random  Access. 

2. 2.3.1  Segmentation  - independent  seqments  not  in  initial  state. 

2.2. 4.1  Ending  label  procedures  executed  prior  to  eid-of-file. 

2. 2. 4. 2 USE  procedures  - Sequential  Access  mass  storage. 

3.3  High-Intermediate  Level 
None 

3.4  High  Level 
None 


SECTION  4.  INFORMATION  ITEMS 

Section  4.1  covers  the  cases  where  the  results  of  a given  statement  are  not 
defined  in  the  language  specifications. 

Section  4.2.  aives  other  inforaation  about  the  coaoiler  which  was  discovered 
during  validation.  Included  in  this  section  are  iteas  which  are  hardware 
dependent/  and  situations  where  implementor  defined  variations  are  permitted. 

Section  4.3.  gives  information  on  hardware  dependent  features  that  are  not 
supported  by  the  subject  COBOL  Coapiler. 

Section  4.4  gives  information  concerning  the  use  of  facilities  outside  the 
COBOL  program  that  accomplish  functions  defined  in  COBOL  (see  1.4  of  this  VSR). 

The  COBOL  language  specification  "American  National  Standard  COBOL  *3.23-196*" 
as  defined  by  FIPS  Pub  21  is  used  as  the  reference  document. 

4.1.  Information  Tests 

4.1.1.  Nucleus  Nodule 

4. 1.1.1.  CLOSE  followed  by  an  OPEN  OUTPUT  of  a printer  destined  file  CL91D3): 

COPY-TEST-2  of  LB103  closed  and  then  reopened  the  printer  file.  The  result  of 
closing  and  then  re  opening  a unit  record  output  file  is  not  specifically 
addressed  in  the  language  specifications.  The  object  of  this  test  is  to  deter- 
sive whether  the  file  is  repositioned  to  its  beginning  and  all  previous  results 
overwritten/  or  whether  all  cjrrent  output  is  preserved  with  additional  output 
concatenated  to  it. 

The  results  for  this  compiler: 

All  printed  output  was  provided. 

4. 1.1. 2.  IF.. .Signed  Numeric  item  equals  Alphanumeric  item  (NC103): 

I f-TE ST-65  compares  two  elementary  items  with  the  first  item  having  PIC  S9(1£) 
VALUE  111111111111111111  and  the  second  item  having  a PIC  XC18)  VALUE 
"111111111111111111".  The  items  are  compared  by  the  form: 

If  identifer-1  E1UAL  T3  identifier-2...' 

The  results  for  this  cpspiler: 

The  two  elementary  items  did  not  compare  equal. 

4. 1.1. 3.  1F...NUNERIC  Condition  tests  (NC103): 

CLASS-TEST-17  and  CLASS-TEST-22  of  NC103  are  Inforaation  tests  where  data  items 
with  PICTURE  S9  contain  -1  and  *1  respectively.  Each  data  item  is  redefined 
as  an  alphanumeric  data  item  PICTURE  X.  The  redefined  data  item  is  then 
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referenced  in  a NUMERIC  test  to  deteraine  whether  the  signed  data  item  contains 
an  indicator  to  represent  the  sign*  i.*.  an  overpunch.  If  both  data  items  are 
determined  to  be  numeric*  then  the  system  does  not  use  an  indicator  technique 
fir  the  sign.  If  ooth  data  items  are  determined  to  be  not  numeric  then  the 
system  uses  an  indicator  method  for  both  positive  and  negative  numbers.  If  one 
of  the  data  items  is  numeric  and  the  other  is  not*  then  the  system  uses  the 
indicator  method  for  one  case  but  not  the  other.  The  sign  is  not  addressed 
oy  the  COBOL  language  specifications  and  consequently  is  left  to  the 
discretion  of  the  implementors  of  COBOL  compilers  as  to  its  representation. 

The  results  for  this  compiler: 

Negative  data  redefined  as  unsigned  data: 

The  data  item  tested  NOT  MJMERIC. 

Positive  data  redefined  as  unsigned  data: 

The  data  item  tested  NOT  NUMERIC. 

4. 1.1. 4 Move  signed  numeric  field  to  alphanumeric  field  (NC1QS): 

M3  VE-TES  T-1 4 S'  and  *3 VE - TE S T -1 49  in  VC1D5  move  signed  numeric  fields  with 
PICTURE  S9(5)  to  fields  with  PICTURE  X(5).  The  source  fields  had  contents 
of  *63666  and  -73717  for  M3NE-TE STS- 1 4 8 and  149  respectively.  The  language 
specification  is  not  definitive  as  to  whether  the  absolute  value  is  to  be 
moved  (i.e.  the  sign  is  stripped)  or  whether  the  contents  are  moved  without 
regard  to  the  sign.  The  results  of  these  tests  should  be  considered  only  in 
light  of  the  results  of  the  information  test  in  4.1.1.?. 

The  results  for  this  compiler: 

MOVE  *60666  TO  X<5> 

The  absolute  value  was  moved;  the  sign  was  stripped. 

M3 VE  -70717  TO  X<5> 

The  absolute  value  was  moved;  the  sign  was  stripped. 

4. 1.1. 5.  ADO  without  3W  SHE  ERROR  (NC106): 

ADD-TEST-17  in  NC106  checks  the  effect  of  a site  error  on  the  result  of  an 
ADD  statement  which  does  not  have  the  ON  SITE  ERR3R  phrase.  The  statement 
used  was  adding  SV91S)*  S9(6)V9(6)*  SV9<5>  GIVING  S9<5)  ROUNDED.  Identifier 
S? (6) V9(6)  contained  the  value  333333.333333.  The  SV915)  descriptions  were  the 
same  identifier  and  contained  the  value  .11111.  The  language  specifications 
do  hot  define  the  results  of  an  arithmetic  operation  without  the  SITE  ERROR  , 
phrase*  when  the  result  cannot  be  contained  in  the  r e su 1 1 ant -i dent  1 f ie r which 
causes  truncation  of  significant  digits.  The  results  of  this  test  require  6 
digits  and  the  res j l t ant -i dent i f i er  contains  only  5.  For  a further  discus- 
aion*  see  X3.?3-196S  American  National  Standard  COBOL  page  ?-?B*  Section 
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S.2.2<1>*  The  SITE  E R R 3R  clause. 

Trie  results  for  this  compiler: 

The  result  was  stored  in  the  resu l t ant -i dent i f i er  with  the  high  order 
digit  truncated. 

4. 1.1. 6.  Abbreviated  Combined  Relation  Conditions  (NC231): 

IF--TEST-110  in  NC  291  utilizes  an  abbreviated  combined  relation  condition  to 
determine  the  direction  tne  coapiler  will  take  in  a case  where  the  use  of  the 
word  N3T  is  indeed  confusing.  The  language  specification  states  on  page  2-7 J* 
section  5. 2. 1.1  that  when  the  construct  AND  NOT  LESS  THAN  is  used  in  a source 
9rograi>  the  word  NOT  is  to  be  treated  as  a logical  operator.  This  becomes 
relevant  when  taken  in  the  context  of  the  later  aobreviation  of  the  relational 
operator  in  the  statement.  For  example*  A = B AND  NOT  LESS  THAN  C OR  D.  would 
expand  to  the  following:  A * 3 AND  NOT  A LESS  THAN  C OR  A LESS  THAN  D.  The 
test  in  Question  contains  the  following:  A GREATER  THAN  6 AND  IS  NOT  LESS  THAN 

C OR  D which  strongly  suggests  that  the  word  NOT  in  this  case  is  relational  in 
nature  and  not  logical.  The  concept  of  an  optional  word  (IS)  changing  the 
leaning  of  a statement  is  contrary  to  the  philosophy  of  COBOL  and  as  a result 
this  test  is  presented  as  information  only. 

The  values  for  the  variables  in  the  condition  are  A*5*  B*7*  C*1  and  D = 4. 

Using  these  values  in  place  of  the  variables*  the  condition  eapands  as  the 
following  if  NOT  is  treated  as  relational: 

< < 5 6RCATER  THAN  7)  AND  (5  NOT  LESS  THAN  1))  OR  (5  NOT  LESS  THAN  6) 

In  this  case  the  condition  is  false. 

If  the  NOT  is  logical*  the  condition  expands  as  the  following: 

<(S  GREATER  THAN  7 AND  NOT  <5  LESS  THAN  1)>  OR  <5  LESS  THAN  6) 

In  this  case  the  condition  is  true. 

The  results  for  this  compiler: 

The  word  NOT  was  treated  as  a relational  operator. 

4. 1.1. 7 The  Synchronized  Clause  (NC133) 

The  language  specification  does  not  specify  the  results  of  the  use  of  the 
Synchronized  clause  without  the  specification  of  either  LETT  or  RIGHT.  In  the 
event  that  such  results  are  provided  during  the  validation  process*  they  are 
included  here  as  information. 

The  results  for  this  compiler: 

The  coapiler  did  not  indicate  how  the  synchronization  would  be  done. 
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*.1.1.3  The  ACCEPT  St  atexent  (NC139): 

Tie  language  specification  does  not  specify  the  results  of  ACCEPT  when 
the  hardware  is  capable  of  transferring  the  amount  of  data  as  specified 
in  the  receiving  field  and  more  characters  are  entered  for  t rans 1 er  on 
tne  device  than  were  expected  by  the  receiving  field. 

The  results  of  this  compiler: 

The  leftmost  character(s)  are  truncated  when  the  njmber  of  characters 
ACCEPTed  from  the  SPO  exceeds  the  size  of  the  receiving  field. 

4.1.2.  Random  Access  Module 

4. 1.2.1  Multiple  length  records  (RC132): 

Prograa  RC1P2  produces  a file  containing  records  of  multiple  sizes.  The  pur- 
pose of  this  test  is  to  determine  whether  multiple  size  records  are  written  or 

whether  the  maximum  size  record  is  always  written.  As  the  file  is  created/ 

records  of  both  length  are  written;  and  as  »/>e  smaller  records  are  built/ 
information  uniquely  identifying  each  record  is  placed  in  the  portion  of  the 
larger  record  that  would  not  logically  be  written  to  the  external  media.  When 
the  file  is  later  retrieved  the  record  area  is  examined  to  determine  whether 
the  extra  portion  beyond  the  end  of  the  smaller  record  is  available  when  each 
of  the  smaller  records  is  read.  The  lanauaqe  specificaion  does  not  readily 

suggest  that  the  external  media  will  be  impacted  by  the  size  of  the  logical 

record  as  defined  in  the  C3B3L  program. 

The  results  for  this  compiler  are: 

The  coaptler  supports  multiple  length  records. 

4.1.3.  Sequential  Access  Module 

4. 1.3.1.  CLOSE  REEL  for  Output  files  (S0131): 

The  language  specifications  are  not  clear  as  to  the  first  record  written  to  a 
new  reel  after  a CLOSE  REEL  statement  has  been  executed.  In  the  program  SQ131/ 
a multi-reel  file  is  created  using  the  CLOSE  REEL  statement.  INE0-0N-TEST-5 
reads  the  first  record  of  the  second  reel. 

The  results  for  this  compiler: 

The  first  record  reid  on  the  second  reel  was  the  first  record  written 
following  the  CLOSE  REEL. 

4. 1.3. 2.  Multiple  Length  Records  for  Tape  files  (SR132): 

• 

The  audit  routine  S0132  creates  a tape  file  with  multiple  length  records.  The 
file  is  then  read  and  the  record  area  examined  to  determine  whether  fixed  lenqth 
records  were  written,  for  a discussion  of  this  operation/  refer  to  4. 1.2.1. 
under  the  discussion  of  Random  Access. 


Tie  results  for  this  compiler  are: 

The  compiler  appears  to  support  Multiple  length  records. 

4. 1.3. 3.  Multiple  length  records  for  sequential  nass  storage  files  CSQ134): 

The  audit  routine  SQ104  creates  a sequential  Mass  storage  file  with  multiple 
length  records.  The  file  is  then  read  and  the  records  are  examined  to  deter- 
mine whether  fixed  length  records  are  written.  Refer  to  4. 1.2.1  under  the 
discussion  of  multiple  records  for  Random  Access  files  for  a description  of 
a similar  test. 

The  results  for  this  compiler  are: 

The  compiler  appears  to  support  multiple  length  records. 

4. 1.3. 4.  FILE-LIMITS  Clause 

The  fILE-LlMITS  clause  need  not  be  used  by  the  comoiler  and/or  operating  system 
to  atlocate  file  space.  The  language  specification  allows  an  external  source 
or  function  to  accomplish  some  functions  descrioed  in  the  tO-OL  language,  in 
particular,  file  facilities  management  functions. 

The  results  for  this  compiler  are: 

The  FILE-LIMITS  clause  is  used  by  this  compiler  in  defining  the 
relative  limits  of  the  file. 

4.1.3.S  RERUM  Clause  Option 

The  language  specification  requires  that  the  implementor  must  provide  at 
least  one  of  the  specified  forms  of  the  RERUM  clause. 

The  RERUN  clause  used  for  this  compiler  was: 

RERUN  ON  DISC  EVERT  5 RECORDS  OF  file-name-1. 

4.2.  Othar  Information 

4.2.1.  Library  Source  Text 

The  language  specification  is  somewhat  vague  as  to  the  content  of  the  library 
text  prior  to  being  copied.  As  a result  there  are  a multitude  of  technioues 
that  have  been  noted  for  establishing  the  source  text  for  subsequent  use  by  a 
COPY  statement.  This  information  is  provided  in  order  to  understand  the 
technique  used  by  this  system. 

• 

The  results  for  this  compiler  are: 

There  were  no  modifications  required  for  the  liarary  text. 


4.2.2.  Normal  Print  Positioning  (SQ21S) : 

The  language  specification  does  not  provide  the  default  specifications  for 
the  use  of  the  WRITE  statement  in  relation  to  files  destined  for  a printer 
uhen  the  ADVANCING  phrase  is  not  specified  by  the  user.  The  purpose  of  this 
test  is  to  observe  the  default  taken  by  the  cosoiler. 

The  results  for  this  compiler  are: 

This  compiler  assumes  BEFORE  ADVANCING  1 when  no  advancing  phrase  is  used. 
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4.3  Hardware  dependent  features. 


o Hardware  Switches 


This  system  does  not  support  hardware  switches  snd  as  a result#  all  tests 
related  to  the  testing  of  switches  were  deleted. 

o UNIT  Option 

The  logical  concept  of  UNIT  is  not  defined  by  this  system  for  aass  storage 
devices.  As  a result  all  tests  related  to  testing  of  the  UNIT  option  were 
deleted. 

4.4  Transparent  I apl eaent at i on 

User  labels.  The  syntax  of  the  stateaent  VALUE  Or  data~na*e  IS  produces  a 
warning  message  but  not  a fatal  compile  time  error.  The  systea  has  the  • 
SYSTE“/RTABLGFN  function  to  accoiplish  the  semantics  for  this  COBOL  language 
stateaent  external  to  the  COBOL  program. 


SECTION  S 


SOFTWARE  ENVIRONMENT 


The  compiler  referenced  in  this  document  was  validated  using  the  software 
environment  described  in  this  section.  When  using  a modification  of  the 
described  environment*  the  compiler  may  or  may  not  continue  to  conform  to  the 
standard.  It  should  be  noted  that  during  the  validation  process*  an  attempt 
is  made  to  validate  as  many  different  options  as  possible. 

The  use  of  compiler  options*  implementor-names  in  the  Environment  Division 
and  any  fora  of  optimization  which  is  not  described  in  this  report  could  cause 
the  compiler  to  produce  a program  that  does  not  perform  according  to  the 
specifications  of  Standard  C333L.  Dnly  the  environment  described  in  this 
document  has  been  used  with  this  compiler  to  satisfy  the  requirements  of  FIPS 
PdB  21  and  FPVR  1 01 -32. 1 335 . 1 a . (Any  deviations  which  must  be  corrected  as 
per  the  referenced  FPMR  are  described  in  Sections  2 and  3 of  this  report.) 

1.  Options  or  parameters  used  on  the  processor  call  statement  for  the  compiler 
The  followina  opt i ons /param et e rs  were  used  during  the  validation. 

Options  specified: 

t SET  OPTIMIZE  (also  ran  without  OPTIMIZE) 

STACK 

L1STP 

LI  SDELETED 
USASI 

RESET  B6703 

Options  defaulted: 

See  Burroughs  COBOL  Reference  Manual  No.  5033656 
Chapter  13. 

2.  Environment  Division  implementor-names. 


Printer  destined  files 
PRINTER 

Tmpe  files 

TAPE 

Sequential  mass  storage  files 
DISK 

Random  Access  files 
DISK 
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Sort  files  (SO) 

SORT  DISK 

Switch  names 

Not  supported  by  the  compiler. 
Source  Computer  names 

86703-87733 
Object  Computer  names 

B5703-B7733 


3.  Optimization.  The  compiler  may  or  may  not  have  optimization  features. 

If  there  was  an  optimization  feature  available#  it  was  used  during  the 
validation  process  (during  a separate  execution  of  the  Compiler  Validation 
System)  to  determine  if  its  use  cajses  the  compiler  to  produce  a rrogram  which 
does  not  oive  the  expected  results.  If  the  optimization  is  invoked  through 
the  compiler  call  statement  then  it  is  mentioned  in  paraoraph  1 above.  If 
it  is  invoked  through  the  introduction  of  syntax  in  other  than  the  Data 
and  Procedure  Divisions  of  the  source  program  it  is  shown  below.  Optimization 
which  would  require  modification  to  the  Data  and  Procedure  Divisions  is  not 
considered  in  this  report  in  that  it  is  beyond  the  scope  pf  the  use  of 
standard  COBOL  and  the  validation  process. 

The  optimization  feature  for  this  compiler  is  invoked  through  the  compiler 
statement  ( SSET  ).  See  1.  above.  There  was  no  differnce  in  the 
execution  of  the  programs  when  the  optimization  feature  was  invoked. 


4.  Compiler. 

Burroughs  COBOL  Version  II. 9 


S.  Operatinq  system. 

Burroughs  RC»  II. 8 
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APPENDIX  A 


VALIDATION  SJNMARY  WORKING  DOCUMENT 


A-1  This  appendix  is  a working  paper  produced  during  the  validation 

and  documents  the  results  of  the  compilation  and  execution  of  each  of  the 
programs  comprising  the  CCVS.  The  results  contained  herein  are  based  on 
the  use  of  the  compiler  within  the  Validation  Environment  identified  in 
, this  appendix.  This  appendix  (Validation  Summary  Workino  Document)  is  not 

part  of  the  official  Validation  Summary  Report  (VSR)  and  is  not  intended 
tD  reflect  in  any  way  the  compiler’s  usefulness  or  degree  of  conformance 
to  the  language  specifications. 

The  reader  of  this  appendix  should  keep  in  mind  that  the  same  pro- 
blem area  may  appear  in  more  than  one  program/  but  is  considered  only  as  one 
single  discrepancy  and  as  such  is  reflected  only  once  in  the  body  of  the 
VSR.  (The  VSR  will  in  turn  only  reference  the  first  occurrence  of  the 
problem  in  the  appendix.) 

This  appendix  is  divided  into  two  parts.  The  first  part  describes 
the  Validation  Environment.  The  second  part  of  the  document  is  divided  into 
. categories  of  information:  compilation  and  execution  results. 

The  reference  document  for  C030L  is  FIPS  PUB  21  <X3. 23-1968) . 
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COMPILER  IDENTIFICATION: 
COMPUTER  SYSTEM: 
0»ERATIM3  SYSTEM: 


VALIDATION  ENVIRONMENT 
36700/37700  Version  II. 9 
Bjrrojghs  B6700/B7733 
Burrouahs  MCP  II. S 
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LIBRARY  MODULE  LEVEL  1 
L 31 01  throjgh  L8107 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 

LIBRARY  MODULE  LEVEL  2 
L 3201  through  LB235 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 
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NJCLI-US  MODULE  LEVEL  1 


NCI  31  through  NC138 

A.  Cumpi l at  ion: 
No  errors. 

B.  Execution: 

Nj  errors. 


NC109 


A . Comp i l a t i on : 

No  errors. 

8.  Execution: 

ACC-TEST-6  accepts  23  characters  from  the  SPO  (standard  console 
ACCEPT  and  DISPLAY  device)  and  compares  the  characters  it  has 
ACCEPTed  into  an  elementary  item  PIC  A(?3>  uith  another  elementary 
item  PIC  A(23).  The  fields  did  not  compare  equal  because  the 
leading  space  was  truncated  from  the  characters  transmitted  from 
the  SPO. 

Computed  result:  ABC  XYZ  . 

Expected  result:  ABC  XYZ  . 

ACC-TEST-7  accepts  9 characters  from  the  SP3  into  an  elementary 
numeric  item  PIC  9(9)  and  then  compares  this  item  uith  another 
elementary  numeric  item  PIC  9(9)  VALUE  012345S73.  The  fields 
did  not  compare  equal.  It  is  iioortarit  to  understand  that  a total 
of  ten  (10)  characters  mere  transmitted  from  the  SPO.  When  the 
transferred  data  exceeds  the  size  of  the  receiving  item*  only  the 
leftmost  characters  of  the  data  are  stored  in  the  receiving  data 
item. 

See  Page  2-29  S.J.3  (4)  b.  The  ACCEPT  Statement. 

NC110  through  NC113 

A.  COMPILATION: 

No  errors. 

B.  Execution: 

No  errors. 
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NJCLEUS  MODULE  LEVEL  2 
NC201  through  NC232 

A.  Coapilation: 

No  errors. 

B.  E xecut ion: 

No  errors. 

NC203 

A.  Coapilation: 

The  DA TE -C DhPI LEO  paragraph  in  this  progra*  tests: 

(a)  the  acceptance  of  a coaxent  entry  within  the 
DATE-COBPILEO  paragraph  and  (b)  replacement  of  the 
date  coTipiled  paragraph  during  coxoilation 
with  a paragraph  of  the  fora: 

DATE-C3NPILED.  Cur rent -d a t e . 

This  compiler  inserted  the  current-date  into  the  paragraph 
rather  than  replace  the  coaaent  entry. 

See  Page  2-26*  Paragraph  2.4.3d)  The  DATE-CD*<PILED 
PARAGRAPH. 

B.  Execution: 

No  errors. 

NC204 

A.  Coapilation: 

No  errors. 

B.  Execution: 

ACC-TEST-6  accepts  20  characters  froa  the  SP3  and  coapares 
the  characters  it  has  ACCEPTed  into  an  eleaentary  item 
PIC  A(20)  with  another  eleaentary  itea  PIC  A(23).  The  fields 
did  not  coapare  equal  because  the  leading  SPACE  was  truncated 
froa  the  characters  transaitted  froa  the  SPO. 

Coaputed  result:  ABC  XYZ  . 

Expected  result:  ABC  XTZ  . 

NC  205  through  NC212 


A.  Coapilation 
No  errors. 
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RANDOM  ACCESS  NODULE  LEVEL  1 

RC131  through  RCU5 

A.  CsnpHition: 

No  error*. 

3.  Execution: 
ho  error*. 

RANDOM  ACCESS  MODULE  LEVEL  2 
RC201 

A.  Coepilation: 

The  following  DECLARATIVE  procedures  produced  the 
coapile  tiie  sestage: 

WARNINS  : ROUTINE  NOT  APPLICABLE  TO  ANT  FILE*** 

USE  AFTER  BEGINNING  FILE  LABEL  PROCEDURE  ON  OUTPUT 

USE  BEFORE  STANDARD  BEGINNING  FILE  LABEL  PROCEDURE  ON  1-0 

USE  BEFORE  ENDING  FILE  LABEL  PROCEDURE  ON  OUTPUT 

'USE  AFTER  ENDING  FILE  LA3EL  PROCEDURE  ON  1-0 

USE  AFTER  STANDARD  BEGINNING  FILE  LA3EL  PROCEDURE  ON  INPUT 

USE  BEFORE  STANDARD  ENDING  FILE  LABEL  PROCEDURE  ON  INPUT 

B.  Execution: 


CLOSE  TEST-01  and  CLOSE  TEST-02  fail  because  DECLARATIVE 
procedure  was  not  properly  executed  "AFTER  BEGINNING 
FILE  LABEL  PROCEDURE  ON  OUTPUT". 

CLOSE  TEST-D?  and  CLOSE  TEST-13  fail  because  DECLARATIVE 
procedure  was  not  properly  executed  "BEFORE  ENDING 
FILE  LABEL  PROCEDURE  OUTPUT". 

OPEN  INPUT  TEST-11  fails  because  DECLARATIVE  procedure 
was  not  properly  executed  "AFTER  STANDARD  BEGINNING 
FILE  LABEL  PROCEDURE  ON  INPUT". 

OPEN  1-0  TEST-11  fails  because  DECLARATIVE  procedure 
was  not  properly  executed  "BEFORE  STANDARD  BEGINNING 
FILE  LABEL  PROCEDURE  ON  I-O". 

CLOSE  TEST-25  fails  because  DECLARATIVE  procedure 
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was  not  properly  executed  "3EF0RE  STANDARD  ENDING  FILE 
LABEL  PROCEDURE  ON  INPUT”. 

CLOSE  TEST-26  falls  because  DECLARATIVE  procedure 
was  not  properly  executed  “AFTER  ENDING  FILE  LABEL 
PROCEDURE  ON  1-0". 

OPEN  AFTER  LOCC  TEST-27  fails  because  a file  is  made  available 
after  it  was  CLOSEd  WITH  LOCK. 


See  Papes  2-15S  through  2-1 S?  Random  Access  Level  2. 


RC202 


A.  Compilation: 

The  following  DECLARATIVE  procedures  produced  the 
compile  time  messages: 

WARNING  : FILE  NOT  ASSIGNED  TO  TAPE»»» 

WARNING  : ROUTINE  NOT  APPLICABLE  TO  ANY  FILE  **» 

USE  BEFORE  BEGINNING  FILE  LA3EL  PROCEDURE  ON  file-name 
USE  AFTER  STANDARD  BEGINNING  FILE  LA3EL  PROCEDURE  ON  file-name 
USE  AFTER  ENDING  FILE  LA3EL  PROCEDURE  file-name 
USE  BEFORE  ENDING  FILE  L » 3 E L PROCEDURE  ON  file-name 

B.  Execution: 


0»EN 

OUT 
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PROCEDURE  ON  file-name”. 


AFTER  STANDARD  BEGINNING  FILE  LABEL 


CLOSE  TEST-39  fails  because  the  DECLARATIVE  procedure 

was  not  properly  executed  "AFTER  ENDING  FILE  LA3EL  PROCEDURE 

file-name". 

CLOSE  TEST-13  fails  because  the  DECLARATIVE  procedure 

was  not  properly  executed  "BEFORE  ENDING  FILE  LABEL  PROCEDURE 

ON  file-name". 

OPEN  INPUT  TEST-11  fails  because  the  DECLARATIVE  procedure 
was  not  properly  executed  "AFTER  STANDARD  3EGINNINS  FILE  LABEL 
PROCEDURE  ON  file-name". 


OPEN  1-0  TEST-11  fails  because  the  DECLARATIVE  procedure 

was  not  properly  executed  "9EF0RF  BEGINNING  FILE  LABEL  PROCEDURE 
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ON  file-naae 


CLOSE  TEST-27  fails  because  the  DECLARATIVE  prDcedjre 

■as  not  properly  executed  "3EF0RE  ENDINS  FILE  LA3EL  PROCEDURE 

ON  file-name". 

CLOSE  TEST-29  fails  because  the  DECLARATIVE  procedure 

was  not  properly  eiecuted  "AFTER  ENDING  FILE  LA3EL  PROCEDURE 

f i le-naae". 

See  Page  2-17S  A. 1.4  (2)  A.  Standard  Close  File. 

See  Page  2-177  4. 2. A (4)  and  4.2.4  (7)  The  OPEN  Statement. 


RC203 

A.  Compilation: 

In  the  FD  section  the  following  construct  produced  the 
compile  time  message  WARNING  : CONSTRUCT  NOT  MPLENENTED  *** 

VALUE  OF  USER- I D-C  IS  "RANDON-FILE-3". 

The  following  DECLARATIVE  procedure  produced  the  compile  time 
message  WARNING  : FILE  NOT  ASSIGNED  TO  TAPE  «*» 

WARNING  : ROUTINE  NOT  APPLICABLE  TO  ANT  FILE  •** 

USE  BEFORE  STANDARD  BEGINNING  FILE  LABEL  PROCEDURE  ON  file-name 
USE  AFTER  STANDARD  BEGINNING  FILE  LA3EL  PRDCEDJRE  ON  file-name 
USE  BEFORE  STANDARD  ENDINS  FILE  LABEL  PROCEDURE  ON  file-name 
USE  AFTER  STANDARD  ENDING  FILE  LA3L  PROCEDURE  ON  file-name 

8.  Execution: 


i 


S E 6flE  NT  A 1 ON  MODULE  LEVEL  1 


S51D1 


A.  Compilation: 
No  errors. 

B.  Execution: 

No  errors. 


SS102 


A.  Compilation: 

Ns  errors. 

B.  Execution: 

SE6-TEST-5  fails  oecause  independent  segments  are  not 
in' their  initial  state  each  time  these  segments  are  made 
available  to  the  program. 

See  Page  2-241  2.2.3  Independent  Segments. 


SS103 


A.  Compilation: 

No  errors. 

B.  Execution: 

INITIAL-STATE-TEST-1,  FALL-THRU-TEST-6,  and 
60-T0-ALTER-IND-TES T-7  all  fail  because 
independent  segments  are  not  provided  in  their  initial 
state  each  time  they  are  made  available  to  the  program. 

See  Page  2-241  2.2.3  Independent  Segments. 
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S 1 6MENT AI ON  MODULE  LEVEL  2 
S3201 

A.  Compilation: 

No  errors. 

B.  Execution: 

The  following  tests  fail  because  independent  segments 
are  not  provided  in  their  initial  state  each  time 
they  are  made  available  to  the  program: 

SE6-TEST-22 
SE6-TEST-23 
SE6- TFS  T-24 
SEG-TEST-25 
SEG-TEST-26 
SE6-TEST-27 
SEG-TEST-25 
SEG-TEST-29 
SE  G-TE  ST-30 
St  3-TE  ST-31 
SE6-TEST-32 
SE6-TE  ST-33 
SEG-TEST-S4 
SEG-TE  ST-35 
SEG-TEST-36 
SEG-TEST-37 
SEG-TEST-35 
SES-TEST-39 
SEG-TE  ST-43 
SE  6-TEST -41 
SEG-TEST-42 
SEG-TEST-43 
SE5-TEST-64 
SE6-TEST-65 


See  Page  2-24$  2.2.3  Independent  Segments. 

S 3202 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 
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A.  Coepilation: 

No  errors. 

B.  Execution: 

The  folloving  tests  fail  because  the  independent  segments 
are  not  provided  in  their  initial  state  each  tiae  they  are 
aade  available  to  the  prograe: 

INITIAL  STATE  PARA-4DB  (TEST  14) 

INITIAL  STATE  PARA-S3C  (TEST  15). 


See  Page  2-245  2.2.5  Independent  Segments. 


SEQUENTIAL  ACCESS  NODULE  LEVEL  1 
SaiOl  through  SQ13S 


A.  Compilation: 
No  errors. 

B.  Execution: 

No  errors. 


SEQUENTIAL  ACCESS  NODULE  LEVEL  2 
S 2201  through  S2202 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 


SQ203 


A.  Compilation: 

No  errors. 

B.  Execution: 

USE-TEST-?  fails  to  execute  properly  because  the  ENDING  LABEL  procedure 
executed  on  a file  that  had  been  OPENed  for  INPUT  and  this  file  uas 
CLOSEd  before  the  file  reached  the  end-of-file  condition. 

See  Page  2-153  A. 4 The  USE  Statement. 

See  Page  2-145  4.1  The  CLOSE  Statement. 


A.  Compilation: 
No  errors. 

B.  Execution: 

No  errors. 


SQ235 


A.  Compilation: 

The  following  statexents  produced  the  compile  time  message 
V4RNIN6  : CONSTRUCT  NOT  INPLENENTED  *** 


VALUE  Of  USER-IO-A  IS  "SCQUENTI AL-f ILE-1 " 

VALUE  Of  USER-ID-C  IS  "SEOUE NTI AL-f ILE-3". 

8.  Execution: 

LABEL-TEST-14,  LABEL-TEST-15,  LABFL-TEST-1 6,  anl  LABEL-TEST-18 
all  fail  because  the  VALUE  Of  data-name  IS  literal 
clause  is  not  ieoleaented. 

See  Pane  2-150  A. 4 The  USE  Stateoent. 

See  Page  2-142  3.7  The  VALUE  Of  Clause. 


S0206  through  SQ207 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 

SB208 

A.  Compilation: 

The  following  DECLARATIVES  produced  the  compile  time  message: 

WARNING  : ROUTINE  NOT  APPLICABLE  TO  ANY  FILE*** 

USE  BEFORE  BESINNINS  FILE  LA9EL  PROCEDURE  ON  1-0 
USE  AFTER  BEGINNINS  FILE  LA3EL  PROCEDURE  ON  1-0 
USE  BEFORE  ENDING  FILE  LA3EL  PROCEDURE  ON  1-0 
USE  AFTER  ENDING  FILE  LABEL  PROCEDURE  ON  I-O. 

B.  Execution: 

OPEN-I-O-TE ST , LABEL  PROCEDURE  07-USE-TEST,  03-USE-TEST,  09-USE-TEST, 
and  10-USE-TEST  all  failed  because  of  improper  execution  of  the 
DECLARATIVE  procedures  associated  with  the  1-0  files. 

See  Page  2-150  4.4  The  USE  Statement. 

$8209 

A.  Compilation: 

The  following  DECLARATIVE  procedures  produced  compile  time  messages:* 

WARNING  : FILE  NOT  ASSIGNED  TO  TAPE*** 

WARNING  : ROUTINE  NOT  APPLICABLE  TO  ANT  FILE*** 
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USE  AFTER  STANDARD  ENDING  UNIT  LABEL  PROCEDURE  ON  NASS-FILE-A 
USE  AFTER  STANDARD  3ESINNIN3  UNIT  LABEL  PROCEDURE  ON  * A S S- F I LE - A 
USE  BEFORE  STANDARD  ENDING  UNIT  LABEL  PROCEDURE  ON  NASS-FILE-A 
USE  BEFORE  STANDARD  ENDING  UNIT  LAPEL  PROCEDURE  ON  "ASS-FILE-B 
USE  BEFORE  STANDARD  BEGINNING  UNIT  LABEL  PROCEDURE  ON  FIASS-FILf-B 
USE  BEFORE  BEGINNING  LABEL  PROCEDURF  ON  DUNir-I -O-F ILE 
USE  BETORE  ENDING  LABEL  PROCEDURE  ON  D UMNT- I -0- F ILE 

B.  Execution: 

OPEN  SERIES  0°E  N-T  E S T -1  fails  because  the  associated  DECLARATIVE 
procedures  do  not  execute  properly. 


See  Page  2-153  4.*  The  USE  Statement. 

S 2 21  0 

A.  Compilation: 

Compiler  messages  mere  produced  for  all  DECLARATIVE  procedures 
uhich  referred  to  UNIT;  however*  these  messaqes  were  WARNINGS 
and  all  CLOSE  UNIT  tests  were  deleted  from  the  program  so  these 
messages  were  aopropriate. 

B.  Execution: 

All  CLOSE  UNIT  tests  were  deleted  so  no  errors. 


SB211  through  SQ212 

A.  Compilation: 
N»  errors. 

B.  Execution: 

N*  errors. 


S321 3 

A.  Compilation: 

The  following  DECLARATIVE  procedures  produced  the  cooplle 
time  messages: 

WARNING  : FILE  NOT  ASSIGNED  TO  TAPE*** 

WARNING  : ROUTINE  NOT  APPLICABLE  TO  ANY  FILE*** 
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USe  AFTER  STANDARD  BEGINNING  FILE  LABEL  PROCEDJRE  ON  NASS-FILE 

USE  AFTER  STANDARD  3EGINNING  FILE  LABEL  PROCEDURE  ON  DUNNY-NASS-FILE 

USE  AFTER  STANDARD  ENDING  FILE  LABEL  PROCEDJRE  ON  NASS-FILE 

USE  AFTER  STANDARD  ENDING  FILE  LABEL  PROCEDURE  ON  DUN NY-BASS— FILE. 

B.  Execution: 

04-USE-TEST  fails  because  the  ending  file  label  procedure 
is  improperly  executed  when  the  file  is  CLOSEd;  however*  the  end- 
of-file  condition  has  not  been  reached. 

See  Page  2-144  4.1.4  (2)C  Standard  Close  File. 

07-USE-TEST  and  07-USE-TEST  fail  because  the  associated  DECLARATIVE 
procedures  are  not  properly  executed. 

See  Page  2-150  4.4  The  USE  Statexient. 


SQ214 

A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 

S2215 

A.  Compilation: 

The  following  stateaents  produced  the  compile  time  message: 

WARNING  : CONSTRUCT  NOT  1NPLENENTED*** 

VALUE  OF  ELENENT  OF  LABEL-6R0UP-1 
ELENENT  IN  WORK-GROUP-1* 

ELENENT  IN  LA3EL-SROUP-2 
ELENENT  OF  WORK-GROUP-2. 

B.  Execution: 

The  test  VALUE  OF  ...  QUAL*  LABEL-TEST-1  fails  because  the  constructs 
shown  in  the  Compilation  section  above  were  not  implemented 
as  Indicated  by  the  WARNIN6  compile  tiae  message. 

See  Page  2-142  3.7  The  VALUE  OF  Clause. 

j SR21 6 

A.  Compilation: 


The  fallowing  DECLARATIVE  procedures  produced  the  compile  time 

Messages: 

WAR* ING  : FILE  NOT  ASSIGNED  TO  TAPE*** 

WARNING  : ROJTINE  NOT  APPLICABLE  TO  ANY  FILE*** 

USE  AFTER  ENDING  FILE  LABEL  PROCEDURE  ON  NASS-FILE 

USE  AFTER  ENDINS  UNIT  LA3EL  PROCEDURE  ON  NUL  TI  - <1 A SS- F I LE  . 

B.  Eiecution: 

CLOSE  WITH  LOCK  LOCK-TEST-J  fails  because  the 

DECLARATIVE  procedures  associated  with  the  files  do  not  execute 
properly. 

See  Page  2*111  4.1. A C2)C  Standard  Close  File. 

S3217 

A.  Compilation: 

No  errors. 

B.  Execution: 

LOCK-TEST-1D  fails  because  the  ending  label  procedure  was 
executed  even  though  the  end-of-file  condition  was  not  reached 
when  the  file  was  CLOSEd. 

See  Page  2-144  4.1.4  (2)C  Standard  Close  File. 


S321  8 


A.  Coapilation: 
No  errors. 

B.  Execution: 

No  errors. 


SORT  NODULE  LEVEL  1 
ST101  through  SHU 

A.  Compilation: 
ho  errors. 

B.  E xecut ion : 

No  errors. 

SORT  NODULE  LEVEL  2 
SI  201  through  ST207 

A.  Compilation: 
No  errors. 

B.  Execution: 

No  errors. 


I 


40 


TABLE  HANDLING  MODULE  LEVEL  1 


TH101  through  TH1D4 

A.  Compil at  ion: 

No  errors. 

B.  Execution: 

No  errors. 

! TABLE  HANDLING  MODULE  LEVEL  2 
TH201  through  TH211 

A.  Compilation: 

No  errors. 

B.  Execution: 

No. errors . 

< 

I table  handling  module  level  3 

f T ■1301  through  TH311 

’ A.  Compilation: 

No  errors. 

B.  Execution: 

No  errors. 
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